home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok77.lha / REXX / VersionModul / IncOutRev.oed < prev    next >
Text File  |  1993-08-15  |  1KB  |  53 lines
  1. /* -----------------------------------------------------
  2.  
  3.   :Program.     IncOutRev.oed
  4.   :Author.      Albert Weinert [awn]
  5.   :Address.     Feldblumenweg 2, D-5000 Köln 71
  6.   :Version.     V1.1
  7.   :Date.        22-Jul-1992
  8.   :Copyright.   Public Domain
  9.   :Language.    ARexx
  10.   :Translator.  ARexx 1.15
  11.   :Contents.    Erhöhen der Userrevisionsnummer eines mit WriteVersionModule.oed
  12.   :Contents.    erstellt wurde. Danach UpdateVersionModule.oed starten.
  13.   :Imports.     Nichts
  14.   :History.     V0.0   [awn] 14-Jul-1992 : Begonnen
  15.   :History.     V1.0   [awn] 14-Jul-1992 : Funktionierende Version
  16.   :History.     V1.1   [awn] 22-Jul-1992 : UpdateVersionModule.oed wir jetzt automatisch
  17.   :History.                                am Ende des Skripts gestartet
  18.  
  19. ---------------------------------------------------------*/
  20.  
  21. options results
  22.  
  23. address 'OEd'
  24.  
  25. 'insertoff'; 'top'
  26.  
  27. 'title "Erhöhe Revision"'
  28. 'findstr' ":Version."; 'next'
  29. 'wright';'wright';right
  30. version = " "
  31. Do ForEver
  32.   'getasc'; cod = result
  33.   IF cod = 32 THEN break
  34.   IF cod = 0 THEN break
  35.   version = INSERT(D2C(cod),version,LENGTH(version))
  36.   'right'
  37. END
  38.  
  39. IF version = " one" THEN DO
  40.  ver = 0
  41.  rev = 0
  42. END
  43. ELSE DO
  44.  parse VAR version ver "." rev
  45.  rev = rev +1
  46. END
  47. top;'findstr ":Version."';next;wright;wright
  48. 'write "V"';'write ' ver; 'write "."'; 'write' rev; 'write " "';deleol
  49. findstr ":CharRev.";next;wright;wright;
  50. write "v!";deleol
  51. inserton
  52. rx "Oberon:rexx/UpdateVersionModule.oed"
  53.